home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00734_DE-IN afr.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  848 b   |  22 lines
  1. on enterFrame
  2.   global gMaxBoutons, gSurvolAct, gSurvolPrec, gBarChron, gSujet0, gMessDef1, gBoutons, gChapAct, gEtudAct, gEtudPrec, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListBtDec, gSprSel, gLocLabel
  3.   curseur(6)
  4.   set gListBtDec to []
  5.   set gLocLabel to "DE:RN afr"
  6.   set g1erSprLoc to 22
  7.   setAt(gListBtDec, g1erSprLoc, "VIC")
  8.   setAt(gListBtDec, g1erSprLoc + 1, "ARO")
  9.   setAt(gListBtDec, g1erSprLoc + 2, "HHA")
  10.   setAt(gListBtDec, g1erSprLoc + 3, "KEN")
  11.   setAt(gListBtDec, g1erSprLoc + 4, "PAF")
  12.   setAt(gListBtDec, g1erSprLoc + 5, "AEG")
  13.   setAt(gListBtDec, g1erSprLoc + 6, "AAF")
  14.   setAt(gListBtDec, g1erSprLoc + 7, "MASKAFR")
  15.   set gEtudAct to "afr"
  16.   repeat with i = g1erSprNav + 1 to gMaxBoutons
  17.     if (i <> (g1erSprNav + 5)) and (i <> (g1erSprNav + 6)) then
  18.       set the visible of sprite i to 0
  19.     end if
  20.   end repeat
  21. end
  22.